home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / transfer.z / transfer
Encoding:
Text File  |  2002-10-03  |  3.6 KB  |  76 lines
  1. TRANSFER(3I)                                          Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      TTRRAANNSSFFEERR - Treats the first argument as if it is of the same type as
  6.      the second argument
  7.  
  8. SSYYNNOOPPSSIISS
  9.      TTRRAANNSSFFEERR (([SSOOUURRCCEE==]_s_o_u_r_c_e,, [MMOOLLDD==]_m_o_l_d [,,[SSIIZZEE==]_s_i_z_e]))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, IRIX systems
  13.  
  14.      CF90, MIPSpro 7 Fortran 90
  15.  
  16. SSTTAANNDDAARRDDSS
  17.      Fortran
  18.  
  19. DDEESSCCRRIIPPTTIIOONN
  20.      The TTRRAANNSSFFEERR intrinsic function returns a result with the physical
  21.      representation identical to that of _s_o_u_r_c_e but interpreted with the
  22.      type and kind of _m_o_l_d.  If _m_o_l_d is character, the result has the same
  23.      character length declared for _m_o_l_d.  It accepts the following
  24.      arguments:
  25.  
  26.      _s_o_u_r_c_e    Can be of any type.  It can be scalar or array valued.
  27.  
  28.      _m_o_l_d      Can be of any type.  It can be scalar or array valued.  This
  29.                intrinsic function should not be used if _m_o_l_d is a derived
  30.                type with a pointer component; the result of this depends on
  31.                your implementation.
  32.  
  33.      _s_i_z_e      Must be scalar and an integer.
  34.  
  35.      TTRRAANNSSFFEERR is a transformational function.  The name of this intrinsic
  36.      cannot be passed as an argument.
  37.  
  38. RREETTUURRNN VVAALLUUEESS
  39.      The result has the same type as _m_o_l_d.
  40.  
  41.      If _m_o_l_d is scalar and _s_i_z_e is not present, the result is a scalar.
  42.  
  43.      If _m_o_l_d is array valued and _s_i_z_e is not present, the result is an
  44.      array of rank one.  The size of the array is as small as possible such
  45.      that its physical representation is not shorter than that of _s_o_u_r_c_e.
  46.  
  47.      If _s_i_z_e is present, the result is an array of rank one with an extent
  48.      of _s_i_z_e.
  49.  
  50.      If the physical representation of the function result is the same
  51.      length as _s_o_u_r_c_e, the result is the entire representation of _s_o_u_r_c_e.
  52.      If the physical representation of the function result is longer than
  53.      _s_o_u_r_c_e, the result is the entire representation of _s_o_u_r_c_e and the
  54.      remainder of the result is undefined.  If the physical representation
  55.      of the function result is shorter than _s_o_u_r_c_e, the result is the
  56.      leading part of _s_o_u_r_c_e.  If _s_o_u_r_c_e and _m_o_l_d are scalar entities and
  57.      the size of _m_o_l_d is at least as long as _s_o_u_r_c_e, the result must be the
  58.      value of _s_o_u_r_c_e.  For example, if _s_o_u_r_c_e is an array and _m_o_l_d is a
  59.      rank one array, E is the value of the following:
  60.  
  61.           TRANSFER(TRANSFER(E, D), E, SIZE(E))
  62.  
  63. EEXXAAMMPPLLEESS
  64.      Example 1:  The result of TTRRAANNSSFFEERR((''aabbcc'',, ''dd'')) has the value aa.
  65.  
  66.      Example 2:  Assume that AA is the following real array:  ((//11..11,, 22..22,,
  67.      33..33//)).  The result of TTRRAANNSSFFEERR((AA,, ((//((00..00,,00..00))//)))) is a complex
  68.      1-dimensional array with one element:  (11..11, 22..22).
  69.  
  70.      The result of TTRRAANNSSFFEERR((AA,,((//((00..00,,00..00))//)),, 11)) is a complex rank one array
  71.      with one element (11..11, 22..22).
  72.  
  73. SSEEEE AALLSSOO
  74.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  75.      man page.
  76.